PROGRAM Max;

TYPE
	int = INTEGER;
VAR
	a,b,max:int;

FUNCTION getMax(x,y:INTEGER):INTEGER;
BEGIN
	IF x > y THEN getMax:=x
	ELSE getMax:=y;
END;

BEGIN
	writeln('Input two integer values:');
	readln(a);
	readln(b);
	
	max:=getMax(a,b);
	writeln('The larger number is: ',max);
END.
